home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / MILL.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  50.0 KB  |  24 lines
  1. 10 POKE56,13:POKE55,200:POKE45,68:POKE46,12:CLR:E=56576:M$=CHR$(13):B=156:F=255
  2. 20 SYS58648:PRINT"":POKE183,175:POKE187,230:POKE188,10
  3. 30 SYS62913:POKE187,149:POKE188,11:SYS62913
  4. 40 PRINT"              [208][210][197][211][211] [210][197][212][213][210][206][146]";
  5. 50 GETA$:IFA$=M$THEN70
  6. 60 GOTO50
  7. 70 PRINT"[147][142]TO ADJUST SPEED, EXIT PROGRAM AND LIST
  8. 80 [153]"IT.  THEN CHANGE THE NUMBER IN LINE 150."
  9. 90 [153]"A SMALLER NUMBER IS FASTER AND A LARGER"
  10. 100 [153]"NUMBER IS SLOWER.  MAKE SURE THAT THERE"
  11. 110 [153]"IS ALWAYS A THREE DIGIT NUMBER."
  12. 120 [153]"              PRESS RETURNWAIT";
  13. 130 [161]A$:[139]A$[178]M$[167]150
  14. 140 [137]130
  15. 150 A[178]064:[151]B,A[175]F
  16. 160 [158]58648:[151]E,7
  17. 170 [153]"PRESS RETURN TO START MOVIE."
  18. 180 [153]"PRESS X TO EXIT."
  19. 190 [153]"DURING DISPLAY, PRESS C= FOR THIS MENU."
  20. 200 [161]A$:[139]A$[178]M$[167]230
  21. 210 [139]A$[178]"X"[167][151]56,160:[151]55,.:[128]
  22. 220 [137]200
  23. 230 [158]3528:[137]160
  24.